home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
data
/
nyan_e2
/
nyane2sp.plp
< prev
next >
Wrap
Text File
|
1993-11-30
|
4KB
|
164 lines
/********** プロフィールの受信予約を行う v1.04a用 **********/
var endtype[3];
var dest[80];
var Handle[40];
var Book[10];
%BMail{
var f2[1000];
var b2[1000];
var rtn2[700];
f2:=forum;
rtn2:=rtn;
b2:={loop(} |@xc({7b})|
{select({ どのアドレスブックを使いますか?},999,{im({Yes})},}
|@xc({7b})|{ MAIL }|@xc({7d})|{,}
|@xc({7b})|{ MemLst(}
|@xc({7b})|{MAIL}|@xc({7d})|{); im({No}); }
|@xc({7d});
loop({
%fnset @head(f2,{/});
%fname @head(fnset,{(});
%ccsset @body(fnset,{(},{)});
case(b2<>{},{Yes},{b2:=b2|{,}});
b2:=b2 |@xc({7b})|{ }|fname|{ }|@xc({7d})|{,}
|@xc({7b})|{ MemLst(}
|@xc({7b})|fname|@xc({7d})|{); im({No}); }
|@xc({7d});
f2:=@body(f2,{/});
%mae @head(rtn2,fname);
%ushiro @body(rtn2,fname);
rtn2:=mae|@body(ushiro,{/});
im(f2<>{});
});
case(rtn2<>{},{Yes},{
loop({
%fnset @head(rtn2,{/});
%fname @head(fnset,{(});
case(b2<>{},{Yes},{b2:=b2|{,}});
b2:=b2 |@xc({7b})|{ }|fname|{ }|@xc({7d})|{,}
|@xc({7b})|{ MemLst(}
|@xc({7b})|fname|@xc({7d})|{); im({No}); }
|@xc({7d});
rtn2:=@body(rtn2,{/});
im(rtn2<>{});
});
});
b2:=b2|{); }|@xc({7d})|{);};
case(forum={},
{Yes}, {im({});
},{No},{im(b2);
});
};
%SelMail @BMail;
%DestProf{
%MemLst{[path]
mclear(2);
case(@filechk(logd|{\}|path|{\MEMBER.TXT}),
{Yes}, {mread(logd|{\}|path|{\MEMBER.TXT},2);
Book:=path;
},{No},{madd(2,{});
Book:={MAIL};
});
mset(2,{w});
};
%Dmail{
loop({
%name @input({ 受信相手のIDを入れてください},,{});
case(@nochar(name)=8,
{Yes},{
footnote({});
dest:={Prof :}|name|{ };
im({No});
},{No},{
case(name<>{},
{Yes},{
footnote({ 「}|name|
{」は 英数字8文字でありません});
im({Yes});
},{No},{
dest:={};
im({No});
});
});
});
};
%SetHandle{
Handle:=@head(@getchar(@memo(2,@xlinenum),11,18),{\n});
loop({
case(@getchar(Handle,@nochar(Handle),1)={ },
{Yes},{ Handle:=@body(Handle,,{ }); im({Yes});
},{No},{
case(@getchar(Handle,@nochar(Handle)-1,2)={ },
{Yes},{ Handle:=@body(Handle,,{ }); im({Yes});
},{No},{im({No});
});
});
});
};
case(@mlast==0,{Yes},{ mclear(1); madd(1,{})});
MemLst(Book);
loop({ mopen(2,0,21,256,459);
footnote({直入決定変更 終了},{b});
loop({ waitx(1000);
im(@xtype!=2 && @xtype<100 || @xlinenum<0)
});
case(@PFK(@xtype),
2,{ dest:={Prof :}|@getchar(@memo(2,@xlinenum),1,8)|
{ };
SetHandle;
im({No});
},101,{ Dmail;
},102,{ dest:={Prof :}|@getchar(@memo(2,@xlinenum),1,8)|
{ };
SetHandle;
im({No});
},103,{ mclose(3);
loop({
SelMail;
case(@memo(2)={},{Yes},{
footnote({ 選択されたアドレス}
|{ブックは空です});
});
im(@memo(2)={});
});
im({Yes});
},105,{ dest:={};
im({No});
}, ,{ case(@mcheck!=0,{Yes},{mclose(1)});
im({Yes});
});
case(@mcheck=2,{Yes},{mclose(3)});
footnote({});
});
};
Book:={MAIL};
loop({
CloseAllMemo;
Handle:={};
DestProf;
case(dest<>{},{Yes},{
loop({
Handle:=@input({ 相手ハンドル名を入力してください},,Handle);
im(@nochar(Handle)>18)
});
case(Handle={},{Yes},{Handle:=@getchar(dest,7,8)});
loop({
endtype:=@select({ 「}|Handle|{」 氏のプロフィールを}|
{受信予約しますか?},99999,{im({戻});
},{ 受信予約をする }, {im({予});
},{ 受信を保留する }, {im({保});
},{ 予約しない}, {im({捨});
});
im(endtype={戻});
});
case(endtype<>{捨},{Yes},{
delfile(SaveFName);
IndexLine:=endtype|{ }|dest|{:}|Handle|{\n};
write(IndexFName,IndexLine);
});
});
im(dest<>{});
});